home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / fish / 726-750 / 734 / powervisor / s / pv / cmdline.pv < prev    next >
Text File  |  1995-03-18  |  1KB  |  38 lines
  1. /*==============================================================*/
  2. /* Start this script from a shell with the 'rx' command.        */
  3. /* You will know have a pseudo PowerVisor commandline where you */
  4. /* can use almost any PowerVisor command. This script is useful */
  5. /* if you want to use a terminal for debugging.                 */
  6. /* If you precede a command with a '!', the command will be     */
  7. /* executed as a shell command.                                 */
  8. /* Use 'quit' to quit this script.                              */
  9. /*==============================================================*/
  10.  
  11. address rexx_powervisor
  12. options results
  13.  
  14. say "PowerVisor shell command line V1.0"
  15. say "Use 'quit' to quit this script (PowerVisor will not quit!)"
  16. hide
  17.  
  18. TheEnd=0
  19. do while TheEnd=0
  20.     'to * print \(curlist(),%s)>\ '
  21.     parse pull input
  22.     if input='quit' then TheEnd=1
  23.     else if substr(input,1,1)='!' then
  24.         do
  25.             address command substr(input,2)
  26.         end
  27.     else if input~='' then
  28.         do
  29.             'to *' input
  30.             if rc~=0 then
  31.                 do
  32.                     'to * print \({error error},%s)\0a'
  33.                 end
  34.         end
  35. end
  36.  
  37. unhide
  38.